Infinite Pong the Movie (for SB by B+ 2018-09-19)

constants
n p1y 2
n p2y 43
n pw 10

ball
n bx 75
n by 20
n bdx 2
n bdy 1

main
[
	c
	gs P1
	gs P2
	gs B
	w .1
]

s P1
	n p1x bx - 5
	l p1y p1x
	; 1111111111
r

s P2
	n p2x bx - 5
	l p2y p2x
	; 2222222222
r

s B
	i bx + bdx < 7
		n bdx bdx * -1 + int(rnd * 3) - 1
	f
	i bx + bdx > 143
		n bdx bdx * -1 + int(rnd * 3) - 1
	f
	i by + bdy < 3
		n bdy bdy * -1
		n bdx bdx + int(rnd * 3) - 1
	f
	i by + bdy > 42
		n bdy bdy * -1
		n bdx bdx + int(rnd * 3) - 1
	f
	n bx bx + bdx 
	n by by + bdy
	l by bx
	; O
r

